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MTHSS$SIGNAL ; MATH ERROR SIGNAL ROUTINE 16-SEP-1984 01:49:10 VAX/VMS Macro v04-00 Page 0 
Table of contents 


(2) 9 HISTORY : DETAILED 

(3) DECLARATION 

(4) MTHSSJACKET_HND : 5 ps routine error handler 

(5) MTH th brates 3; Signal stan math error 

(7) ee 3 ae nal r gut ine anes user JSB) 
‘8? 4 8) 31 AL ; Loca ifs rout? ne to do nal 

(9) 0 MTASSJACKET_TST 3; Routine to test for math gre handler 
(10) 1 MTHS$$SIGNAL_CON ; Error without signaling and continue 
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MTHS$SIGNAL ; MATH ERROR SIGNAL ROUTINE 16-SEP-1984 01:49: AX/VMS Macro V04-00 P 
008 o-$Ep= 1984 1:38:58 YATHRTL. SRCIRTHSIGNAL MAR; 1 


E MT HESS 1GNAL ; MATH ERROR SIGNAL ROUTINE 
T /1-003/ ; File: MTHSIGNAL.MAR 


SRAAAAAAAAAEAAAAAAAATAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAARERAAREAAAEEATAEEEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIE 
ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
Pp 


® 

® 

® 

® 

® 

® 

® 

ON OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
& 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. ‘ 
® 

® 

7 

® 

® 

® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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SOQOoooocoooooooooooooooooooooooOoooooooo 


FACILITY: Mathematical Library 
ABSTRACT: 

: SIGNAL math error as SEVERE, continue will return reserved operand 
; ENVIRONMENT: 


SOoOOOOOOOOOoCoOOCOOSOOOOOOOOOOOOOOOOOOOOOoOO 
SoQooooooo Ss 
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MTHSSSIGNAL ; MATH ERROR SIGNAL ROUTINE 16-SEP=1 1; AX/VMS Macro V04-00 Page 
1-003 HISTORY ; DETAILED 6-SEP-19 3h 94:38 49 UMTMRIL. SR IATHSIGNAL. MAR; 1 ’ 3) 
? -SBTTL HISTORY ; DETAILED 
? 3 AUTHOR: P. Yuo, CREATION DATE: 28-Sep-77 
44 ; et BY: 
45 ; VERSION 
$$ : = = Rénoved ncorrect MTH$ gebcenoary detpe. TNH 3-Nov-77 
47 ; Q- - + og revious frame properly jov-7 
48 : 0-4 = Signal SEVERE, set subsystem petitye NDit. TNH 20-Dec-77 
49 ; 0-5 = Include FAO arg count. 
0 ; $ - neseve all debugg ng FAO stuff. aut 17-Jan-78 
3; O- - Make fake frame if JSB, so traceback same as CALL. TNH 18-Apr-78 
; 1-001 - Update version number and copyr ght g phoreets n. JBS 16-NOV-78 
3; Je ¢ - Add t PS directive. 
4; 1- - Changé shared external Feloremsas” ts G* RNH 25-Sep-81 
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BECLARATION MTMRTL.SRCIMTHSIGNAL.MAR; 1 
-SBTTL DECLARATION 
: INCLUDE FILES: NONE 
60 ; EXTERNAL SYMBOLS: 
6 
o7 -DSABL GBL : Declare all externals explicitly 
é3 eEXTRN LIBSSIGNAL : Signal exception 
0 e 3 MACROS: 
990 63 : SMTHERR : MTHS symbols 
0 SSFDEF 3 stack frame symbols 
71 SSSDEF 3 STARLET completion codes 
33 ie SSTSDEF : condition value symbols 
0900 a ; EQUATED SYMBOLS: 
00000004 0000 76 ERROR_CODE = 4 : error code is first formal 
00000008 0000 oe JSB_PC = 4 3; JSB PC (optional) 
0000 79 ; PSECT DECLARATIONS: 
0000 
00000000 Ht -PSECT _MTHSCODE PIC,SHR,LONG, EXE, NOWRT 
3388 S 3; program section for MTH$ code 
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50 460918 8F Hi 


steers 


008 


R SIGNAL ROUTINE 


} 
9 
H 


; Math routine error ha "OrSeP =}38e 94:38:48 YRTARTS BRE SOTHISTGNAL. MAR; 1 —/ (a) 


~SBTTL MTHSSJACKET_HND 


.ENTRY MTHSSJACKET_HND 0 
MOVZWL #SS$_RESIGNAL, R 


; Math routine error handler 


; just resignal 


MATH ERROR SIGNAL ROUTINE 16-SEP-1984 01:49: AX/VMS Macro v04-00 P m1 
at THSSSIGNAL ; Signal any math error ae 1:26: 49 ERTHRTL. SREJATHSIGNAL MARS 1 vss (3) 2: 


-SBTTL MTHSSSIGNAL ; Signal any math error 


MTHS A 
M008 : 


* 
FUNCTIONAL DESCRIPTION: 


at or yeyate steps: 
1) % ontain resul 


gont om math routine ong will be passed as 
Tok ts t input to L Ll 


ts fro 
IBSSIGNAL. L1gs526nm @ save R /R1 in signal 
mechanism vector, CHF$L_MCH_RO/R1 $8 that when (user's or any 
error handler get called CHFSL MCH_ RO/R1 may be modified. 
Save impl cit nput RO/R1 on stack for Lat 
If called with only one argument then the math routine must have 
been called with C aut ra hSn then JSB. 
If user called math routine with. JSB, create extra stack 
frame and fill in return PCs so looks Like user had CALLed instead. 
Get correct user PC Copenety on whether CALL or JSB. 
Convert nee error code to 3 soit VAX error code. 
Se s 31:16 to Mins facility code. 

Sh ps aneti error code left 3 places to make room for severity code 

f Signal c ondition as aooniae (CALL LIBSSIGNAL). 


wr 
—~ 


oo 
~~ 


uw 
~ 


NOTE: DO NOT RESTORE R 
) If handler wishes to continue, return to caller (RO/R1 restored from 
CHFSL_MCH_RO/R1) 
CALLING SEQUENCE: 
CALL MTHSSIGNAL (error_message.rl.v C,call_pc.rl.vJ) 


INPUT PARAMETERS: 


error_message.rl.v ; math error message ; 
call_pe.rl.v 3 eeoers only if math routine is called 
2 by 


IMPLICIT INPUTS: 
RO:R1 = cages to LIBSSIGNAL to be put in signal mechanism vector 


o user's or any error handler can fixup. 
; OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
; COMPLETION CODES: 
NONE 


; SIDE EFFECTS: 
Signal error message. 
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MTHSSSIGNAL . MATH ERROR SIGNAL ROUTINE 16-SEP-1986 01:49:10 VAX/VMS Macro v04-00 ° 
ht 33 ATHSSSIGNAL ; Signal any math error REET ERs PUESZ:22 PAANRS Bac te Met Ol mans e% 8, 


000C -ENTRY MTHSSSIGNAL, “M<R2,R3> save R2:R3 
cit GNAL) and 

01 ; 6 
& 3 

0 

0 

0 

0 

0 


; = rs ooy use RO:R1 Speneed as 
: impl mput £8 L16$S 
3; DO NOT RESTORE RO/R1, since they 
3; may have been modified by error 
; handling routine. 

3+ 
; Check number of arguments to see if math routine is called by CALL or JSB 


CMPB (AP), #1 ; if called with only one arg 
BEQLU 5% 3 assume mth routine called with CALL 
3 (rather than JSB) 
s¢ 
: If math routine is called by JSB then check if its caller is a math 
; routine or the user. 
2g 08 AC 00 MOVL JSB_PC(AP), R2 3 Re = JSB PC 
5 EA AF ODE MOVAL B*MTHSSJACKET_HND, R3 ; R35 = absolute adr. of handler 
3 setup by each CALL MTH$ 
; (as opposed to JSB MTH$) 
53 OC BD 01 CMPL @SFSL_SAVE_FP(FP), R3  ; compare prev. frame handler 
0B 12 BNEQ 10$ ; branch if not jacket handler 


oF 

Previous frame had established MTHS$S$JACKET_HND as a handler 
so it must have been math routine called with CALL (not JSB) 
Get user PC stored by CALL instruction 


5$: MOVL SFSL_SAVE_FP(FP), R2 


MOVL SFSL_SAVE_PC(R2), R2 
BSBB DO_STGNAL 


RET 


R2 = previous frame adr. 
i.e., math routine frame 
2 ="saved user's PC 
signal error code 4(AP) and 
user PC ( 
return to caller (math routine) 


0 
0 
52 OC AD 00 
52. 10 A2. OD 0 

ra) 


3; User called math routine with JSB - create extra frame 

3 so that stack looks just like user had called math routine with CALL. 
3; Then traceback and stack depth (handler argument) will be same 

; for JSB and CALL. 


ee ee ee ee ee ee ee ee ee ee ee ee ee 
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10$: MOVL SFSL_SAVE_PC(FP), R3 ; R3 = return PC to math routine 
PUSHL R3 3; save return PC to math routine 
MOVL R2, SFSL_SAVE_PC(FP) 3 set return PC in frame to be user JSB PC 
CALLG (AP), 6 sponat ; create another frame and signal 
MOVL (SP)+, SFSL_SAVE_PC(FP) ; restore return PC to math routine 
4 ; return to caller (math routine) 


1 
04 
53 10 AD 00 
23 DD 
10 AD dO 
ao 6C FA 
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3; Local signal routine (when u 6-SEP-1984 11:2 


~SBTTL SIGNAL1 ; Local signal routine (when user JSB) 
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19 yaa lvoe Macro V04-00 Page 
: MTHRTL.SRCJMTHSIGNAL.MAR; 1 


++ 
FUNCTIONAL DESCRIPTION: 

Move return PCs up a frame and signal error 
CALLING SEQUENCE: 

MOVL user JSB PC, R2 

MOVL return PC to math routine, ne 

CALL SIGNAL1 (error_message.rl.v C,ignored]) 
INPUT PARAMETERS: 

error_message.rl.v ; math error message 
IMPLICIT INPUTS: 

RO/R1 = passed to LIBSSIGNAL to be put in signal mechanism vector 

so user's or any error handler can fixup. 
Ré - user JSB PC 
B = return PC to math routine 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Signal error message 


SIGNAL1: 
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PRES 
PALO 


SOOOSOOOOSOOSOOOSOSOOSOOOOOOOCO: 


000 
Dd 
‘0 
0 
04 


eee 


.WORD “M<> 
PUSHL SFSL_SAVE_PC(FP) 

MOVL R3, SFSL_SAVE_PC(FP) 
BSBB DO_SIGNA 

mOvL (SP)+, SFSL_SAVE_PC(FP) 


save nothing = access RO:R3 

save return PC to MTHS$S$SIGNAL 
set return PC to be math routine 
signal using error code in R2 
restore return PC to MTHS$$SIGNAL 
return to caller (MTHS$SIGNAL) 


_ er 
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RTHSSSIGNAL MATH ERROR SIGNAL ROUTINE 16-SEP-1984 01:49:10 VAX/VMS Macro v04-00 
va +3 bonSIONAL  : Local ysberoutine to do sig SqseP-19B6 Siisoce5 FMTANTE eae aaricteva..man;1 2% By 


48 ¢$ -SBTTL DO SIGNAL 3; Local JSB routine to do signal 
iB 548 +4 
48 rk ; FUNCTIONAL DESCRIPTION: 
48 ? Convert nqys. rror atone to 32-bit _ error code. 
48 § 5 Set bits to MTH$ facility co 
48 3 Shift sma U i. B... code left tree to make room for severity code 
48 4 : and then call LIBSSIGNAL with Gmplicit input in RO/R1 (= math routine 
rt 2 8 result. Then Sorters the following call to do signal: 
is iH : CALL LIBSSIGNAL (cond_val, 1, user_PC) 
4B 33 : CALLING SEQUENCE: 
48 61 : JSB DO_SIGNAL 
048 e§ : INPUT PARAMETERS: 
r+ o2 ; error_code.rlu.v small math error number 
Os ¢ : IMPLICIT INPUTS: 
048 $3 i : RO/R1 Math routine function value to be copied to CHFS$L_MCH_RO/R1 
ooee oy 3 R2 User PC to be used in message 
0048 re : OUTPUT PARAMETERS: 
Ba ie 
48 275 : IMPLICIT OUTPUTS: 
eae a 
048 28 : COMPLETION CODES: 
beB 580 | — 
048 81 ; SIDE EFFECTS: 
48 é Signal error 
rt 
Os 8 DO_SIGNAL: : Local JSB entry point 
52 OD 48 8 PUSHL R2 3; setup last arg as user PC 
01 OD 4D 3 PUSHL #1 : indicate that one FAO arg is following 
oF ; so SYSSPUT_MESSAGE will know. 
7E 16 10 78 OO4F 0 ASHL #16, #MTHSK_FAC_NO, ~(SP5 
23 91 ; MTH$ error prefix tote. ie. Ly 
6— 04 90 2 35 MOVB #STSSK_SEVERE, (SP) : set error severity to 
6 9 so image will EXl seuaae ae handles. 
6— OC 03 04 AC FO 6 94 INSV ERROR coe #STS$V che, - 
C 95 #STS$S_C (§p) ; insert math code shifted left 
6E 8000 8F AB ‘ 3% BISw 0 #STSSM~ FAC E ep (SP) > Set subsystem specific message bit 
6 9 3; 3 bits so. agke room for severity 
00000000'GF 03 FB 61 4 CALLS #3, G*LIBSSIGNAL 3; save RO/R1 AeA abe mechanisa 
6 9 3 vector CENESL AC 
6 9 3; return w R1"= ‘atonal a, 
6 3 vector CHFSL Rach RO/R aie? ® 
6 2 : error handler may have aod tied” 


migsiam btQ TEAR" ELEM RIMM oe nooo avg ECRESHOML M:98:99 ARATE SRESRARtEAR.saesn "Oh 
05 0068 303 RSB 3 return 
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MTHSS$SIGNAL ; MATH ERROR SIGNAL ROUTINE 16-SEP-1984 01:49: AX/VMS Macro V04-00 Pa 1 
bos ATHSSJACKET_ ; Routine to test for m o-SEb = $8e 1:38:83 ERTMRTL. SREIMTHSIGNAL MARS 1 - (9) 
-SBTTL MTHSSJACKET_TST ; Routine to test for math jacket handler 


ENTRY MTHSSJACKET_TST,0O 

CLRL RO ; assume not jacket routine 

; setup as handler in previous fram 
e., JSB to math routine 
j= adr of handler set up by 

> RMX. 

; test previous frame handler 

; branch if not jacket handler 

; return TRU 

; return 


MTHSSJACKET_HND, R1 
CHPL RI, @SFSL_SAVE_FPCFP) 
MOVL #1, RO 
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MTHSSSIGNAL ; MATH ERROR SIGNAL ROUTIN 16-SEP-1984 01:49: AX/VMS Macro V04-00 Pa 11 
at WTHSSS1GNAL CON ; Error Mi chout signali misty 7 94:58:88 YRTHRTL. SRCOMTHSIGNAL MAR; 1 - (10) 

ore 19 -SBTTL MTHSSSIGNAL_CON ; Error without signaling and continue 

0000 O78 ? -ENTRY MTHSSSIGNAL_CON, 0 
50 01 00 7D ; MOVL #SS$_CONTINOE, RO 3 error condition and continue 
04 0080 RET 

081 4 

081 5 

081 6 ~ END ; end of module 
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Symbol teote Bree ea TRS 915k: 8 PAN A MeS acre ee mans? 2% (18 


SIGNAL r4 R 02 

ERROR_ CODE = 8 

J$B_PC = 8 

L1GSS1GNA RURERARE ¥ 

MTHSSJACKET_HND RG 

MTHSSJACKET_TST RG 

MTHS$$S1GNAL RG 

MTHSSSIGNAL_CON ° RG 

MTHSK_FAC_ = 1 

SFSL_SAVE_FP = of 

SFSL_SAVE_P = 

SIGNAL . R 02 

SS$_CONTINU = 

SS$_RESIGNAL = 18 

STSSK_SEVER = 4 

STSSM_FAC_SP = 0 

STS$S_CODE = 000000 § 

STS$V_CODE = 0000000 
bere seen monn cosa + 
! Psect synopsis ! 
deere eee neces eaae + 

PSECT name Allocation PSECT No. Attributes 

ABS. 00000000 ( -) NOPIC USR CON ABS 


22m 
o 


: 0.) 99 ( Q LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 3° 1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
-MTHSCODE 00000081 ¢ 129.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
+ 


! Performance indicators ; 


$eweeeeecccccecoceccocccn 


Phase Page faults CPU Time Elapsed Time 


Initialization 9 0000: 00.08 08 +0038 -86 
pounene processing § 0:00: )- 87 88: 339 28 
s 3 3 . H : . 
Symbol table sort 6 :00.69 09:00:04 36 
Pass 7 0:00: A A8 : 8: 3.71 
Symbol table output 4 + :00. :00: 8-98 

Psect synopsis output 3 :00:00. :00:00. 
Cross-reference output 3 > 0: 8: 9-08 
Assembler run totais 446 0:07. 0:00:25.4 


Ine working set Limit was 1200 pages. 

25872 bytes (51 pages) of virtual memory were used to buffer the intermediate er 

There were 30 pages of symbol table space allocated to hold 486 non-local and 3 local symbols. 
26 source lines were read in Pass 1, producing object records in Pass 2. 
1 pages of virtual memory were used to define 10 macros. 
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HH hae IGNAL ; MATH ERROR SIGNAL ROUTINE 
VAX=11 Macro Run Statistics 


pom On eee eee ee meet 


! Macro Library statistics ! 


Foreman om aca meanror moe mem zon en = $ 


Macro Library name Macros defined 
$ SDUA28: CMATHRTL.OBJIMTHRTL.MLB; 1 1 
RET ITT HOS CMSa TTT He ‘ 
TOTALS (all Libraries) 


549 GETS were required to define 7 macros. 
There were no errors, warnings or information messages. 
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MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHSIGNAL/OBJ=OBJ$:MTHSIGNAL MSRC$:MTHSIGNAL/UPDATE=(ENH$:MTHSIGNAL) LI 


ORPORATION 
OPRIETARY 
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